Dit voorbeeld maakt gebruik van de instructie Property Set om een eigenschapprocedure te definiδren waarmee u een verwijzing naar een object instelt.
' The Pen property may be set to different Pen implementations.
Property Set Pen(P As Object)
Set CurrentPen = P ' Assign Pen to object.
End Property